home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-08_1990_-_de_Side_B.d64 / Sprite .txt < prev    next >
Encoding:
Text File  |  1996-01-01  |  673 b   |  36 lines
  1. {$f7}/sprite 0,1,7
  2. movspr 0,100,100
  3. sprget 0,sprite
  4. do while x$=""
  5. joy
  6. x=peek(33173)+1
  7. y=peek(33175)+1
  8. cursor x,y
  9. print "*"
  10. get x$
  11. loop
  12. end.
  13. :sprite
  14. ------------------------
  15. ------------------------
  16. ------------------------
  17. ------------------------
  18. ------------------------
  19. ------------------------
  20. ------------------------
  21. --------*------*--------
  22. ---------*----*---------
  23. ----------****----------
  24. ------************------
  25. ----------****----------
  26. ---------*----*---------
  27. --------*------*--------
  28. ------------------------
  29. ------------------------
  30. ------------------------
  31. ------------------------
  32. ------------------------
  33. ------------------------
  34. ------------------------
  35.  
  36.  
  37. x